home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 05 Programming / DISKDATA.BIN (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  754b  |  19 lines
  1. 1 Z$=CHR$(0):INPUT"FILENAME";N$:INPUT"IS THIS A PROGRAM FILE (Y/N)";P$
  2. 2 PRINT"[147]":OPEN2,8,2,N$:GET#2,A$:GET#2,B$:LN=ASC(A$+Z$)+256*ASC(B$+Z$):SA=LN
  3. 3 EA=SA:IFP$="Y"THEN6
  4. 4 PRINTLN"DATA"ASC(A$+Z$)"[157],"ASC(B$+Z$):LN=LN+2:EA=EA+2:GOTO6
  5. 5 PRINT"[147]"
  6. 6 FORK=1TO4:PRINTLN"DATA";:FORI=1TO17:GET#2,A$:EA=EA+1:A=ASC(A$+CHR$(0))
  7. 7 A$=STR$(A):PRINTRIGHT$(A$,LEN(A$)-1)",";:IFST>=64THENPRINT"[157] ":GOTO10
  8. 8 NEXTI:PRINT"[157] ":LN=LN+17:NEXTK:PRINT:PRINT"LN="LN":POKE152,1:";
  9. 9 PRINT"SA="SA":EA="EA":GOTO5":GOTO18
  10. 10 CLOSE2:FORI=1TO9:POKE630+I,13:POKE198,9:NEXT:PRINT:PRINT"SA="SA":EA="EA;
  11. 11 PRINT":GOTO13":PRINT"":END
  12. 12 FORI=1TO10:POKE630+I,13:POKE198,10:NEXT
  13. 13 E$=RIGHT$(STR$(EA-1),LEN(STR$(EA-1))-1):S$=STR$(SA):S$=RIGHT$((S$),LEN(S$)-1)
  14. 14 PRINT"[147]"SA-1"FORI="S$"TO"E$":READA:POKEI,A:NEXT"
  15. 15 FORI=1TO10:POKE630+I,13:POKE198,10:NEXT
  16. 16 FORI=1TO8:PRINTI:NEXT:PRINT"GOTO17":PRINT"":END
  17. 17 PRINT"[147]":FORI=9TO18:PRINTI:NEXT
  18. 18 FORI=1TO10:POKE630+I,13:POKE198,10:NEXT:PRINT"":END
  19.